home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / e / amigae21 / amigae21.lha / Amiga_E_v2.1b / Sources / Other / Avail.e next >
Text File  |  1992-09-02  |  522b  |  21 lines
  1. /* Avail replacement */
  2. /* By EA van Breemen */
  3.  
  4. PROC main()
  5. DEF chip,fast,largest_chip,largest_fast,largest_total
  6.  
  7. chip:=AvailMem($2)
  8. fast:=AvailMem($4)
  9. largest_chip:=AvailMem($20002)
  10. largest_fast:=AvailMem($20004)
  11. largest_total:=IF largest_fast>largest_chip THEN largest_fast ELSE largest_chip
  12.  
  13. WriteF('Type  Available      Largest\n')
  14. WriteF('chip  \d[9]    \d[9]\n',chip,largest_chip)
  15. IF fast
  16.     WriteF('fast  \d[9]    \d[9]\n',fast,largest_fast)
  17.     WriteF('total \d[9]    \d[9]\n',chip+fast,largest_total)
  18. ENDIF
  19.  
  20. ENDPROC
  21.